unit ZoomPhoto;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TfrmZoom = class(TForm)
    Image: TImage;
    procedure FormShow(Sender: TObject);
  private
  public
    fFileName: String;
  end;

var
  frmZoom: TfrmZoom;

implementation

{$R *.dfm}

procedure TfrmZoom.FormShow(Sender: TObject);
begin
  Image.Picture.LoadFromFile(fFileName);
end;

end.
